home *** CD-ROM | disk | FTP | other *** search
- #include <intuition/intuitionbase.h>
- #include <exec/exec.h>
- #include <libraries/dosextens.h>
- #include <graphics/gfxbase.h>
- #include <graphics/text.h>
- #include <graphics/gfxmacros.h>
- #include <graphics/clip.h>
- #include <graphics/layers.h>
- #include <devices/timer.h>
- #include <libraries/filehandler.h>
- #include <stdio.h>
- #include <proto/all.h>
-
- #define PORTNAME "Window-Maschine.port"
-
- struct IntuitionBase *IntuitionBase;
- struct GfxBase *GfxBase;
- struct LayersBase *LayersBase;
- struct Window *WMwin,*Wwin,*Iwin,*Gwin,*Mwin;
- struct Screen *WMsc,*sc,*activS;
- struct RastPort *WMrp,*Wrp,*Irp,*rp,*Grp,*Mrp;
- struct IntuiMessage *WMmsg,*Wmsg,*Mmsg;
- struct Gadget *gad;
- struct timerequest timereq;
- struct Layer *layer,*GetMouseLayer();
- struct Process *ReqProc;
- struct MsgPort *timerport=NULL;
- struct FileInfoBlock *Eintrag;
- struct Lock *dir;
- struct DeviceNode *devinfo,*next;
- extern struct DosLibrary *DOSBase;
- struct DosInfo *info;
- struct RootNode *root;
- struct FileHandle *Datei;
- struct IntuiText ft;
- struct TextFont *StdFont=NULL;
- struct ViewPort *vp,WMvp;
- struct StringInfo *sti;
- struct PropInfo *pri;
-
- VOID CloseAwin(struct MyWindow *),CloseAwinAll(struct MyWindow *);
- VOID SetWDefines(),SetSDefines(),CloseAll(),DelText(struct MyText *);
- VOID TimerStart(),Box(SHORT,SHORT,SHORT,SHORT,SHORT,struct Gadget *);
- VOID MenuOff(),PlaceText(),Work(),Ready(),SetTDefines(),SetNewWin(UBYTE);
- VOID ShowText(),NText(),ShowDir(),NewPrefs(),Ready1(),CEnde(),Copyright();
- VOID SetWD(),SetStyle(),TeilStyle(),TeilMode(),OpenF(),ClearAll(),Plus();
- VOID SetDir(),TestDevice(),Umlaut(UBYTE *,UBYTE *),SetWertF(),SetProp();
- VOID FreeFiles(),TestSok(),TestWok(),LineFeed(),SetzPrefs(UBYTE);
- VOID ReadWin(),ReadText(),Tab(),HTab(),AssT(UBYTE),ClrWin(),Retten(UBYTE);
- VOID TestGok(),GadOff(),SetGDefines(),DelImage(UBYTE),BDef(),Komma();
- VOID GetMessage(struct Window *),CloseWin(struct MyWindow *);
- VOID DelGadget(),DrawGad(),Kasten(SHORT,SHORT),SetBorder(UBYTE),SetGadget();
- VOID SetBDefines(),DelBorder(),ReadGadget(),DoubleFeed(),MakeBorder(UBYTE);
- VOID MakeGadget(),MakeImage(),ReadImage(),GKasten(),MarkMode();
- VOID KUnd(),TestSize(),DelGImage(),DelPImage(),GetColors(),DPunkt();
- VOID SetVectors(),SetMDefines(),ShowMenu(),SetMWert(),MakeMenu();
- VOID RetteMenu(),SetTWert(),DelMenu(),DelItem(),DelSub(),MEin();
- VOID MAus(),MakeSub(),WFolge(),NewLeftM(),DelMenuAll(),DelBo(),SetT(UBYTE);
- VOID HolItem(),ShowItem(),SetIDefines(),NewFlag(),Modify(),WMOn();
- VOID NoMenu(),NoItem(),NoSub(),SetIWert(),SetSWert(),RetteItem(UBYTE);
- VOID NewTop(),MakeText(),MakeMenuItem(),Frei(),LoadWin(),HolSub(),NewBit();
- VOID ListenEnde(),NewLeftI(),MenuOn(UBYTE),AktM(),PlaceMenu(),NewTopI();
- VOID LoeschM(),LoeschI(UBYTE),AktI(),PlaceItem(),NewWidth(),NewExclude();
- VOID ReadMenu(),ReadItem(),ReadSub(),RItem(),TestProp(),HolBorder();
- VOID ReadBorder(),TestBorder(),NewImagePos(),CheckItem(),HolText(UBYTE);
- VOID ItemAuto(),ClrGadget(),DoMenu(),ClrBorder(),RetteVectors();
- VOID SetColor(UBYTE),NewColor(),SpreadColor(LONG,LONG),WaitGad();
- VOID OldVectors(),Back(),TestWindow(),FillReq(),ShowGadget(UBYTE);
- VOID MWinOn(struct Window *),HolMsg(struct IntuiMessage *),HexCode(USHORT);
- VOID SetWert(USHORT,USHORT,struct Window *,struct Gadget *,struct PropInfo *);
- VOID MakeItem(),DeIm(UBYTE),DeTx(UBYTE),InBuff(UBYTE *);
- VOID SetIMDefines(UBYTE),PrintText(ULONG,SHORT,UBYTE),TestGType();
- VOID CheckUndo(struct MyWindow *),MakeName(UBYTE *,USHORT,UBYTE);
- VOID OpenW(struct MyWindow *),Sortier(struct direntry *,UBYTE);
- VOID text(struct RastPort *,UBYTE,UBYTE *,SHORT,SHORT),Nuller(UBYTE);
- VOID ReadRequest(),SetAlert(),DelWin(),DataBeginn(UBYTE),SetNull();
- VOID SetByte(UBYTE *),SetKomma(),KommaNull(UBYTE),InBuffer();
- VOID SetPen(struct RastPort *,UBYTE,UBYTE),EquString(UBYTE *,UBYTE);
- VOID WinBorder(struct Window *),PIDCMP(),BuffLeer(),InLeer(UBYTE,USHORT);
-
- FILE *file;
- BOOL status=0;
- BOOL CMAPFlag,CAMGFlag,BODYFlag;
- APTR iadr;
-
- UBYTE CodeArt=0;
- UBYTE Erlaubt=127;
- USHORT SC,WI,TX,GD,BO,GB,SB,IM,IT,ST,MU,MI,SU,IMG,IMS,RQ,RSQ,AL,PT,NT;
- UBYTE ZSN,TXL,SType,GDL,BOL,IML,MUL,BT,BM,PL;
-
- UBYTE Potenz[] = { 1,2,4,8,16,32,64,128 };
-
- /* 1 = SCREEN
- 2 = WINDOW
- 4 = WINDOWTEXT
- 8 = REQUESTER
- 16 = MENU
- 32 = GADGET
- 64 = PALETTE
- */
-
- UBYTE String[][10]= {
- " ","NewWindow","NewScreen","Intui","Text",
- "Liste","#define ","Name","Gadget","Border",
- "Image","Info","String","Prop","Vectors",
- "Menu","MenuItem","SubItem","Daten","Palette",
- "Requester","BitMap","Plane","Alert","AutoReq"
- };
-
- UBYTE STR[]={"struct "};
- UBYTE CType[][10]={
- "(STRPTR)","(APTR)","(UBYTE *)","UBYTE ","SHORT ","USHORT "
- };
- UBYTE AType[][9]={
- "dc.b","dc.w","dc.l","cnop 0,2","ds.b"
- };
- UBYTE ZCode[][5]={ "\012","\011","\042","\047","[]","equ",".wm","NULL" };
-
- UBYTE DEFS[][12] = {
- " LeftEdge "," TopEdge "," Width "," Height ",
- " BlockPen "," DetailPen ","GADGIMAGE","GADGHIMAGE","HIGHIMAGE",
- "Buffer","ZS_Name"
- };
- UBYTE UNDOBUFFER[255];
- UBYTE IDENT[] = "WM-DATA V1.01";
- UBYTE LEER[30],SaveOk=0,bnr,EndeWM=TRUE;
- UBYTE Dname[10],*zeiger,*Planes,FileName[120],*Cmap;
- UBYTE dm=JAM1,NW=0,TxS=8,TxW=8,depth,aktColor,colors;
- UBYTE d1=0,d2=0,First=1,clone=0;
- UBYTE Wok=0;
- UBYTE Sok=0;
- UBYTE Gok=0;
- UBYTE move=0,Ipick,Ionoff;
- UBYTE style=0,Mauto,MType,BType;
- UBYTE Compiler,Kompact,StrEnd,CodeSize,Warning,FarbKopie;
- UBYTE PREFSBYTE[1],Icom[2],suffix;
- UBYTE stil[] = { 0,0,0,0 },f1=0,f2=0;
- UBYTE FontName[] = "topaz.font";
- UBYTE CMask[] = { 0,1,2,4,8,16,32,32 };
- UBYTE PWert[] = { 1,3,7,15,31,63 };
- UBYTE Hex[] = { '0','1','2','3','4','5','6','7',
- '8','9','A','B','C','D','E','F' };
- UBYTE BLOCKBuff[3];
- UBYTE DETAILBuff[3];
- UBYTE LEFTBuff[5],TOPBuff[5],WIDTHBuff[5],HEIGHTBuff[5];
- UBYTE MAXHBuff[5],MAXWBuff[5],MINHBuff[5],MINWBuff[5];
- UBYTE FRONTBuff[3],BACKBuff[3],GNAMEBuff[30];
- UBYTE DEPTHBuff[2],TITLEBuff[90],BPOINTERBuff[30],GPOINTERBuff[30];
- UBYTE VBuffer[20][5],Buffer[255],HEADERBuff[30],TEXTBuff[90];
- BYTE front=1,back=0,Wdetail,Wblock,bcount;
- BYTE gimage,gborder,gundo,bfront,bback,bdraw;
- LONG class,waitmask,read,write,Widcmp,Wflags,oldflags;
- ULONG Iff,IffPSize,IffSize;
- SHORT Wleft,Wtop,Wwidth,Wheight,Wdepth,Wminwidth,Wminheight,Wmaxwidth;
- SHORT Id,i,j,code,ok,SY,x1,y1,MM,anz,nr,size,y,x,Wmaxheight,left=0,top=0;
- SHORT bleft,btop,bwidth,bheight,oldwidth,oldheight;
- SHORT Mleft,Mtop,Mwidth,Mheight;
- SHORT Dnr,Tnr,Mnr,Inr,Snr,Banz,Tanz,Manz,Ianz,Sanz;
-
- USHORT NewWinDef(),NewWin(UBYTE),NewSc(),NewScDef(),Save(),IntGad();
- USHORT TestWin(struct MyWindow *,struct Window *),CStart(),NewReqDef();
- USHORT NewText(),DefText(UBYTE),WriteText(UBYTE),Error(UBYTE,UBYTE,UBYTE);
- USHORT SaveData(UBYTE),LoadData(UBYTE),DSave(),DefAlert();
- USHORT ReadDir(),WrText(struct MyText *),WrImage(struct MyImage *),LSave();
- USHORT NewLoad(),MakeSource(),WriteSource(),WindowSource(),Null(UBYTE);
- USHORT ScreenSource(),Word(SHORT,SHORT),Byte(BYTE,BYTE),NewBorDef();
- USHORT NewGad(),NewGadDef(),NewBorder(),WrGadget(struct MyGadget *);
- USHORT CopyGadget(),GadgetSource(),BorderSource(UBYTE);
- USHORT KomTab(),BorSource(UBYTE),VectorSource(),ExtraSource();
- USHORT SInfoSource(),PInfoSource(),BInfoSource(),DataSource(UBYTE),ExtraWin();
- USHORT DefMenu(),NewMenu(),NewItem(),NewSub(),NoText(),NBorder(),SaveWin();
- USHORT WrMenu(),WrItem(),WriteItem(),ExcludeI(),MenuSource(),NegGad();
- USHORT ItemSource(),SubSource(),ItemExtra(),SearchGad(),Prefs();
- USHORT CopyBorder(),BoWechsel(),DefImage(UBYTE),PlaceGadget();
- USHORT CloneWindow(),NeuImage(struct Image *),NeuMenu(),DefPalette();
- USHORT IMW(),MoveGadget(UBYTE),CopyImage(struct MyImage *),NegBor();
- USHORT OpenMWin(struct NewWindow *,struct IntuiText *),BitMapSource();
- USHORT ReadIFF(UBYTE,UBYTE,UBYTE *),TextSource(struct MyText *,UBYTE);
- USHORT PaletteSource(USHORT *,USHORT),ItemQuell(USHORT,UBYTE);
- USHORT ImageSource(struct MyImage *,UBYTE),NeuText(struct IntuiText *);
- USHORT NeuBorder(struct Border *),NeuItem(struct MenuItem *,struct MyItem *);
- USHORT WriteWin(struct MyWindow *),WrBorder(struct MyBorder *);
- USHORT FontSource(UBYTE,UBYTE),FileRequester(STRPTR *,SHORT);
- USHORT AlertSource(),SysReqSource(),RequestSource(),ExtraReq();
- USHORT TextZeiger(struct MyText *),GadgetZeiger(),WindowPos(),BuffKom();
- USHORT DefAutoReq(),TestReqImage(struct MyWindow *);
- USHORT CloneGadgets(struct Gadget *);
-
- USHORT Type1[] = { 0x8000,0x4000,0x2000,0x70,0x70,0x70,0x70,0x70,0x70,0x70,
- 0x80,0x3,0x3,0x4,0x3 };
- USHORT Type2[] = { BOOLGADGET,BOOLGADGET,BOOLGADGET,SIZING,WDRAGGING,
- BOOLGADGET,WUPFRONT,BOOLGADGET,WDOWNBACK,BOOLGADGET,
- CLOSE,BOOLGADGET,PROPGADGET,STRGADGET,BOOLGADGET };
- USHORT IData[] = { 0xFFF1,0xFFE7,0xFFCF,0xFF9F,
- 0x0FFF,0xC67F,0xE0FF,0xF1FF }; /* Standard-CheckMark */
- USHORT Nummer,Anzahl,Groesse,d,t,out,Fertig,Change=2,wert,err,Undo;
- USHORT Wview,Wtype,time,MyId,Mflag,Iffx,Iffy,Iffb;
- USHORT r,g,b,c;
- USHORT Colors[32],WMColors[]={0x005A,0x0FFF,0x0002,0x0F80};
- USHORT STDColors[] = {
- 0x005A,0x0FFF,0x0002,0x0F80,0x000F,0x0F0F,0x00FF,0x0FFF,
- 0x0620,0x0E50,0x09F1,0x0EB0,0x055F,0x092F,0x00F8,0x0CCC,
- 0x0000,0x0D22,0x0000,0x0ABC,0x0444,0x0555,0x0666,0x0777,
- 0x0888,0x0999,0x0AAA,0x0BBB,0x0CCC,0x0DDD,0x0EEE,0x0FFF
- };
- struct BitMapHeader {
- UWORD Width,Height;
- WORD LeftEdge,TopEdge;
- UBYTE BitPlanes;
- UBYTE Masking;
- UBYTE Compression;
- UBYTE pad1;
- UWORD TransColor;
- UBYTE XAspect,YAspect;
- WORD PWidth,PHeight;
- };
- struct AmigaChunk {
- UWORD PadWord;
- UWORD ViewModes;
- };
- struct ColorReq {
- UBYTE Rot;
- UBYTE Gruen;
- UBYTE Blau;
- };
- struct ColorReq CMAPColors[32];
- struct BitMapHeader BMHD;
- struct AmigaChunk CAMG;
-
- struct StringInfo BLOCKInfo = { BLOCKBuff,UNDOBUFFER,0,3,0,
- 0,0,0,0,0,0,0,NULL };
- struct StringInfo DETAILInfo = { DETAILBuff,UNDOBUFFER,0,3,0,
- 0,0,0,0,0,0,0,NULL };
- struct StringInfo DEPTHInfo = { DEPTHBuff,UNDOBUFFER,0,2,0,
- 0,0,0,0,0,0,0,NULL };
- struct StringInfo FRONTInfo = { FRONTBuff,UNDOBUFFER,0,3,0,
- 0,0,0,0,0,0,0,NULL };
- struct StringInfo BACKInfo = { BACKBuff,UNDOBUFFER,0,3,0,
- 0,0,0,0,0,0,0,NULL };
- struct StringInfo MAXHInfo = { MAXHBuff,UNDOBUFFER,0,5,0,
- 0,0,0,0,0,0,0,NULL };
- struct StringInfo MAXWInfo = { MAXWBuff,UNDOBUFFER,0,5,0,
- 0,0,0,0,0,0,0,NULL };
- struct StringInfo MINHInfo = { MINHBuff,UNDOBUFFER,0,5,0,
- 0,0,0,0,0,0,0,NULL };
- struct StringInfo MINWInfo = { MINWBuff,UNDOBUFFER,0,5,0,
- 0,0,0,0,0,0,0,NULL };
- struct StringInfo HEIGHTInfo = { HEIGHTBuff,UNDOBUFFER,0,5,0,
- 0,0,0,0,0,0,0,NULL };
- struct StringInfo WIDTHInfo = { WIDTHBuff,UNDOBUFFER,0,5,0,
- 0,0,0,0,0,0,0,NULL };
- struct StringInfo TOPInfo = { TOPBuff,UNDOBUFFER,0,5,0,
- 0,0,0,0,0,0,0,NULL };
- struct StringInfo LEFTInfo = { LEFTBuff,UNDOBUFFER,0,5,0,
- 0,0,0,0,0,0,0,NULL };
- struct StringInfo TITLEInfo = { TITLEBuff,UNDOBUFFER,0,90,0,
- 0,0,0,0,0,0,0,NULL };
- struct StringInfo TEXTInfo = { TEXTBuff,UNDOBUFFER,0,90,0,
- 0,0,0,0,0,0,0,NULL };
- struct StringInfo HEADERInfo = { HEADERBuff,UNDOBUFFER,0,30,0,
- 0,0,0,0,0,0,0,NULL };
- struct StringInfo BPOINTERInfo = { BPOINTERBuff,UNDOBUFFER,0,30,0,
- 0,0,0,0,0,0,0,NULL };
- struct StringInfo GPOINTERInfo = { GPOINTERBuff,UNDOBUFFER,0,30,0,
- 0,0,0,0,0,0,0,NULL };
- struct StringInfo GNAMEInfo = { GNAMEBuff,UNDOBUFFER,0,30,0,
- 0,0,0,0,0,0,0,NULL };
-
- SHORT WV1[] = {0,0,0,0,0,0,0,0,0,0};
- SHORT WV2[] = {0,0,0,0,0,0,0,0,0,0};
- SHORT WV3[] = {0,0,0,0,0,0,0,0,0,0};
- SHORT WV4[] = {0,0,0,0,0,0,0,0,0,0};
- SHORT WV5[] = {0,0,0,0,0,0,0,0,0,0};
- SHORT WV6[] = {0,0,0,0,0,0,0,0,0,0};
- struct Border WB[] = {
- {5,2,2,0,JAM1,5,WV1,NULL},
- {4,2,2,0,JAM1,5,WV2,&WB[0]},
- {3,1,3,0,JAM1,5,WV3,&WB[1]},
- {2,1,3,0,JAM1,5,WV4,&WB[2]},
- {1,0,2,0,JAM1,5,WV5,&WB[3]},
- {0,0,2,0,JAM1,5,WV6,&WB[4]}
- };
- struct TextAttr ZS8 = { (STRPTR)&FontName,TOPAZ_EIGHTY,0,0 };
- struct TextAttr ZS9 = { (STRPTR)&FontName,TOPAZ_SIXTY,0,0 };
-
- UBYTE ZS[32];
- UBYTE Drives1[][5]={"DH0:","VD0:","JH0:","DF0:","DF1:","DF2:","DF3:","RAM:"};
- SHORT BoolVectors[]={0,0,49,0,49,13,0,13,0,0};
- SHORT BoolVectors1[]={0,0,53,0,53,15,0,15,0,0};
- struct Image FImage;
- SHORT Vectors4[] = { 0,0,113,0,113,9,0,9,0,0 };
- struct Border Border4 = { -1,-1,3,0,JAM1,5,Vectors4,NULL };
- SHORT Vectors8[] = { 0,0,181,0,181,11,0,11,0,0 };
- struct Border Border8 = { -1,-2,3,0,JAM1,5,Vectors8,NULL };
- SHORT MVectors3[] = {0,4,8,0,57,0,65,4,65,19,57,23,8,23,0,19,0,4};
- SHORT MVectors4[] = {0,4,8,0,53,0,61,4,61,17,53,21,8,21,0,17,0,4};
- struct Border MBorder5 = {-1,-1,2,0,JAM1,9,MVectors4,NULL};
- struct Border MBorder6 = {-3,-2,3,0,JAM1,9,MVectors3,&MBorder5};
- struct Border Bool1={-3,-2,3,0,JAM1,5,BoolVectors1,NULL};
- struct Border Bool={-1,-1,2,0,JAM1,5,BoolVectors,&Bool1};
- struct IntuiText GText[16];
- UBYTE PFADUNDO[80],FILEUNDO[32];
- UBYTE Fname[32];
- UBYTE Pfad[80];
- struct StringInfo FNameInfo={Fname,FILEUNDO,0,32,0,0,0,0,0,0,0,0,NULL};
- struct StringInfo PfadInfo={Pfad,PFADUNDO,0,80,0,0,0,0,0,0,0,0,NULL};
- struct PropInfo ReglerInfo={AUTOKNOB|FREEVERT,0,0,0,0xffff,0,0,0,0,0,0};
- struct Gadget Disk[8];
- USHORT chip PfeilDownData[] = {
- 0xFFFF,0x8000,0x8000,0x8000,0x87F0,0x8000,0x8630,0x8000,
- 0x8638,0x8000,0xBE3E,0x8000,0x980C,0x8000,0x8C18,0x8000,
- 0x8630,0x8000,0x8360,0x8000,0x81C0,0x8000,0x8080,0x8000,
- 0x8000,0x8000,0xFFFF,0x8000,0xFFFF,0x8000,0x8000,0x8000,
- 0x87F0,0x8000,0x8630,0x8000,0x8638,0x8000,0xBE3E,0x8000,
- 0x980C,0x8000,0x8C18,0x8000,0x8630,0x8000,0x8360,0x8000,
- 0x81C0,0x8000,0x8080,0x8000,0x8000,0x8000,0xFFFF,0x8000
- };
- struct Image PfeilDownImage = { 0,0,17,14,2,PfeilDownData,0x0001,0x0000,NULL };
- USHORT chip PfeilUpData[] = {
- 0xFFFF,0x8000,0x8000,0x8000,0x8080,0x8000,0x81C0,0x8000,
- 0x8360,0x8000,0x8630,0x8000,0x8C18,0x8000,0x980C,0x8000,
- 0xBE3E,0x8000,0x8638,0x8000,0x8630,0x8000,0x87F0,0x8000,
- 0x8000,0x8000,0xFFFF,0x8000,0xFFFF,0x8000,0x8000,0x8000,
- 0x8080,0x8000,0x81C0,0x8000,0x8360,0x8000,0x8630,0x8000,
- 0x8C18,0x8000,0x980C,0x8000,0xBE3E,0x8000,0x8638,0x8000,
- 0x8630,0x8000,0x87F0,0x8000,0x8000,0x8000,0xFFFF,0x8000
- };
- struct Image PfeilUpImage = { 0,0,17,14,2,PfeilUpData,0x0001,0x0000,NULL };
- struct IntuiText DText[] = {
- {3,2,JAM2,0,0,&ZS8,"HAUPTVERZEICHNIS",NULL},
- {1,0,JAM1,14,6,&ZS8,"ENDE",NULL},
- {1,0,JAM1,18,6,&ZS8,"O K",NULL},
- {1,0,JAM1,2,6,&ZS8,"LÖSCHEN",NULL},
- {3,2,JAM2,144,140,&ZS8," FILE - NAME ",NULL},
- {3,2,JAM2,160,112,&ZS8," P F A D ",&DText[4]} /* 5 */
- };
- SHORT DVectors1[] = {0,0,221,0,221,13,0,13,0,0};
- struct Border DBorder1 = {-1,-3,3,0,JAM1,5,DVectors1,NULL};
- SHORT DVectors2[] = {0,0,133,0,133,11,0,11,0,0};
- struct Border DBorder2 = {-3,-2,1,0,JAM1,5,DVectors2,NULL};
- SHORT DVectors3[] = {0,0,129,0,129,9,0,9,0,0};
- struct Border DBorder3 = {-1,-1,2,0,JAM1,5,DVectors3,&DBorder2};
-
- struct Gadget Regler = {NULL,-235,20,20,80,GRELRIGHT,
- RELVERIFY|GADGIMMEDIATE|FOLLOWMOUSE,PROPGADGET,
- (APTR)&FImage,NULL,NULL,NULL,(APTR)&ReglerInfo,32,NULL};
- struct Gadget FileGad[] = {
- {&Regler,-211,92,192,8,GADGHCOMP|GRELRIGHT,RELVERIFY,
- BOOLGADGET,NULL,NULL,NULL,NULL,NULL,10,NULL},
- {&FileGad[0],-211,84,192,8,GADGHCOMP|GRELRIGHT,RELVERIFY,
- BOOLGADGET,NULL,NULL,NULL,NULL,NULL,9,NULL},
- {&FileGad[1],-211,76,192,8,GADGHCOMP|GRELRIGHT,RELVERIFY,
- BOOLGADGET,NULL,NULL,NULL,NULL,NULL,8,NULL},
- {&FileGad[2],-211,68,192,8,GADGHCOMP|GRELRIGHT,RELVERIFY,
- BOOLGADGET,NULL,NULL,NULL,NULL,NULL,7,NULL},
- {&FileGad[3],-211,60,192,8,GADGHCOMP|GRELRIGHT,RELVERIFY,
- BOOLGADGET,NULL,NULL,NULL,NULL,NULL,6,NULL},
- {&FileGad[4],-211,52,192,8,GADGHCOMP|GRELRIGHT,RELVERIFY,
- BOOLGADGET,NULL,NULL,NULL,NULL,NULL,5,NULL},
- {&FileGad[5],-211,44,192,8,GADGHCOMP|GRELRIGHT,RELVERIFY,
- BOOLGADGET,NULL,NULL,NULL,NULL,NULL,4,NULL},
- {&FileGad[6],-211,36,192,8,GADGHCOMP|GRELRIGHT,RELVERIFY,
- BOOLGADGET,NULL,NULL,NULL,NULL,NULL,3,NULL},
- {&FileGad[7],-211,28,192,8,GADGHCOMP|GRELRIGHT,RELVERIFY,
- BOOLGADGET,NULL,NULL,NULL,NULL,NULL,2,NULL},
- {&FileGad[8],-211,20,192,8,GADGHCOMP|GRELRIGHT,RELVERIFY,
- BOOLGADGET,NULL,NULL,NULL,NULL,NULL,1,NULL}
- };
- struct Gadget PfeilDownGad = {&FileGad[9],-234,102,17,14,
- GRELRIGHT|GADGIMAGE,RELVERIFY|GADGIMMEDIATE,BOOLGADGET,
- (APTR)&PfeilDownImage,NULL,NULL,NULL,NULL,31,NULL};
- struct Gadget PfeilUpGad = {&PfeilDownGad,-234,4,17,14,
- GRELRIGHT|GADGIMAGE,RELVERIFY|GADGIMMEDIATE,BOOLGADGET,
- (APTR)&PfeilUpImage,NULL,NULL,NULL,NULL,30,NULL};
- struct Gadget PDir = {&PfeilUpGad,140,6,128,8,GADGHCOMP,RELVERIFY,
- BOOLGADGET,(APTR)&DBorder3,NULL,&DText[0],NULL,NULL,25,NULL};
- struct Gadget FName = {&PDir,84,154,220,12,NULL,RELVERIFY,
- STRGADGET,(APTR)&DBorder1,NULL,NULL,NULL,(APTR)&FNameInfo,24,NULL};
- struct Gadget PfadName = {&FName,84,126,220,12,NULL,RELVERIFY,
- STRGADGET,(APTR)&DBorder1,NULL,NULL,NULL,(APTR)&PfadInfo,23,NULL};
- struct Gadget EXGad = {&PfadName,250,172,60,20,GADGHCOMP,RELVERIFY,
- BOOLGADGET,(APTR)&MBorder6,NULL,&DText[1],NULL,NULL,0,NULL};
- struct Gadget OKGad = {&EXGad,10,172,60,20,GADGHCOMP,RELVERIFY,
- BOOLGADGET,(APTR)&MBorder6,NULL,&DText[2],NULL,NULL,19,NULL};
- struct NewWindow FWindow = {160,0,320,199,1,2,
- GADGETDOWN|GADGETUP|MOUSEMOVE,SMART_REFRESH|ACTIVATE|RMBTRAP,
- &OKGad,NULL,NULL,NULL,NULL,5,5,-1,-1,CUSTOMSCREEN};
-
- struct IntuiText ETXT = { 3,0,JAM1,0,10,&ZS8,NULL,NULL };
- struct Gadget EEXIT = { NULL,420,25,60,20,NULL,RELVERIFY,
- BOOLGADGET,(APTR)&MBorder6,NULL,&DText[1],NULL,NULL,0,NULL };
- struct Gadget EOK = { &EEXIT,140,25,60,20,NULL,RELVERIFY,
- BOOLGADGET,(APTR)&MBorder6,NULL,&DText[2],NULL,NULL,1,NULL };
- struct NewWindow ErrWindow = { 0,75,640,50,1,2,
- GADGETUP|INTUITICKS,
- ACTIVATE|SIMPLE_REFRESH|RMBTRAP,
- &EOK,NULL,NULL,NULL,NULL,5,5,-1,-1,CUSTOMSCREEN };
- SHORT chip Wecker[]={
- 0x0000,0x0000,
- 0x0100,0x0000,0x0280,0x0440,0x701c,0x0280,0xe7ce,0x07c0,
- 0xdef6,0x1ff0,0xbffa,0x3ff8,0x36d8,0x3ff8,0x7efc,0x7ffc,
- 0x7efc,0x7ffc,0x5e34,0x7ffc,0x7ffc,0x7ffc,0x7ffc,0x7ffc,
- 0x37d8,0x3ff8,0x3ff8,0x3ff8,0x1ef0,0x1ff0,0x0fe0,0x0fe0,
- 0x1830,0x0820,0x701c,0x0000,0xf83e,0x3018,0x701c,0x0000,
- 0x0000,0x0000
- };
- struct IntuiText WMText1e= { 3,1,COMPLEMENT,0,0,&ZS8,"Gadgetliste ordnen",NULL };
- struct IntuiText WMText1d= { 3,1,COMPLEMENT,0,0,&ZS8,"SelectImage",NULL };
- struct IntuiText WMText1c= { 3,1,COMPLEMENT,0,0,&ZS8,"GadgetImage",NULL };
- struct IntuiText WMText1b= { 3,1,COMPLEMENT,0,0,&ZS8,"Gadget Border",NULL };
- struct IntuiText WMText1a= { 3,1,COMPLEMENT,0,0,&ZS8,"Gadget Text",NULL };
- struct IntuiText WMText1 = { 3,1,COMPLEMENT,0,0,&ZS8,"Gadget verschieben",NULL };
- struct IntuiText WMText2 = { 3,1,COMPLEMENT,0,0,&ZS8,"Gadget kopieren",NULL };
- struct IntuiText WMText2a = { 3,1,COMPLEMENT,0,0,&ZS8,"Gadget definieren",NULL };
- struct IntuiText WMText3 = { 3,1,COMPLEMENT,0,0,&ZS8,"Neues Gadget",NULL };
- struct IntuiText WMText4 = { 3,1,COMPLEMENT,0,0,&ZS8,"MenuStrip erstellen",NULL };
- struct IntuiText WMText5 = { 3,1,COMPLEMENT,0,0,&ZS8,"MenuStrip löschen",NULL };
- struct IntuiText WMText5b = { 3,1,COMPLEMENT,0,0,&ZS8,"MenuStrip testen",NULL };
- struct IntuiText WMText5a = { 3,1,COMPLEMENT,0,0,&ZS8,"CheckMark",NULL };
- struct IntuiText WMText9b = { 3,1,COMPLEMENT,0,0,&ZS8,"Window kopieren",NULL};
- struct IntuiText WMText9a = { 3,1,COMPLEMENT,0,0,&ZS8, "WindowText definieren",NULL };
- struct IntuiText WMText9 = { 3,1,COMPLEMENT,0,0,&ZS8, "WindowText schreiben",NULL };
- struct IntuiText WMText10 = { 3,1,COMPLEMENT,0,0,&ZS8,"Window definieren",NULL };
- struct IntuiText WMText10a = { 3,1,COMPLEMENT,0,0,&ZS8,"Neues Window öffnen",NULL };
- struct IntuiText WMText11 = { 3,1,COMPLEMENT,0,0,&ZS8,"Screen definieren",NULL };
- struct IntuiText WMText11a = { 3,1,COMPLEMENT,0,0,&ZS8,"Neuen Screen öffnen",NULL };
- struct IntuiText WMText11b = { 3,1,COMPLEMENT,0,0,&ZS8,"Farben definieren",NULL };
- struct IntuiText WMText12 = { 3,1,COMPLEMENT,0,0,&ZS8,"ENDE WINDOW-MASCHINE",NULL };
- struct IntuiText WMText13 = { 3,1,COMPLEMENT,0,0,&ZS8,"Alles löschen",NULL };
- struct IntuiText WMText14 = { 3,1,COMPLEMENT,0,0,&ZS8,"Preferences",NULL };
- struct IntuiText WMText15 = { 3,1,COMPLEMENT,0,0,&ZS8,"Sourcecode erzeugen",NULL };
- struct IntuiText WMText16 = { 3,1,COMPLEMENT,0,0,&ZS8,"WM-Daten laden",NULL };
- struct IntuiText WMText17 = { 3,1,COMPLEMENT,0,0,&ZS8,"WM-Daten speichern",NULL };
- struct IntuiText WMText16a = { 3,1,COMPLEMENT,0,0,&ZS8,"Window laden",NULL };
- struct IntuiText WMText17a = { 3,1,COMPLEMENT,0,0,&ZS8,"Window speichern",NULL };
-
- struct IntuiText RqText1 = {3,1,COMPLEMENT,0,0,&ZS8,"AlertText",NULL};
- struct IntuiText RqText2 = {3,1,COMPLEMENT,0,0,&ZS8,"Alert definieren",NULL};
- struct IntuiText RqText3 = {3,1,COMPLEMENT,0,0,&ZS8,"Neuer Alert",NULL};
- struct IntuiText RqText4 = {3,1,COMPLEMENT,0,0,&ZS8,"NegativeText",NULL};
- struct IntuiText RqText5 = {3,1,COMPLEMENT,0,0,&ZS8,"PositiveText",NULL};
- struct IntuiText RqText6 = {3,1,COMPLEMENT,0,0,&ZS8,"BodyText",NULL};
- struct IntuiText RqText7 = {3,1,COMPLEMENT,0,0,&ZS8,"AutoRequester definieren",NULL};
- struct IntuiText RqText8 = {3,1,COMPLEMENT,0,0,&ZS8,"Neuer AutoRequester",NULL};
- struct IntuiText RqText9 = {3,1,COMPLEMENT,0,0,&ZS8,"ReqBitMap",NULL};
- struct IntuiText RqText10 = {3,1,COMPLEMENT,0,0,&ZS8,"ReqText",NULL};
- struct IntuiText RqText11 = {3,1,COMPLEMENT,0,0,&ZS8,"ReqBorder",NULL};
- struct IntuiText RqText12 = {3,1,COMPLEMENT,0,0,&ZS8,"Requester definieren",NULL};
- struct IntuiText RqText13 = {3,1,COMPLEMENT,0,0,&ZS8,"Neuer Requester",NULL};
-
- struct MenuItem RItem13 = {NULL,-10,16,128,8,HIGHCOMP|ITEMTEXT,
- NULL,(APTR)&RqText1,NULL,0,NULL,MENUNULL};
- struct MenuItem RItem12 = {&RItem13,-10,8,128,8,HIGHCOMP|ITEMTEXT,
- NULL,(APTR)&RqText2,NULL,0,NULL,MENUNULL};
- struct MenuItem RItem11 = {&RItem12,-10,0,128,8,ITEMENABLED|HIGHCOMP|ITEMTEXT,
- NULL,(APTR)&RqText3,NULL,0,NULL,MENUNULL};
- struct Menu Menu1 = {NULL,506,0,47,0,MENUENABLED,"ALERT",&RItem11};
-
- struct MenuItem RItem10 = {NULL,0,32,232,8,HIGHCOMP|ITEMTEXT,
- NULL,(APTR)&RqText4,NULL,0,NULL,MENUNULL};
- struct MenuItem RItem9 = {&RItem10,0,24,232,8,HIGHCOMP|ITEMTEXT,
- NULL,(APTR)&RqText5,NULL,0,NULL,MENUNULL};
- struct MenuItem RItem8 = {&RItem9,0,16,232,8,HIGHCOMP|ITEMTEXT,
- NULL,(APTR)&RqText6,NULL,0,NULL,MENUNULL};
- struct MenuItem RItem7 = {&RItem8,0,8,232,8,HIGHCOMP|COMMSEQ|ITEMTEXT,
- NULL,(APTR)&RqText7,NULL,'A',NULL,MENUNULL};
- struct MenuItem RItem6 = {&RItem7,0,0,232,8,ITEMENABLED|HIGHCOMP|ITEMTEXT,
- NULL,(APTR)&RqText8,NULL,0,NULL,MENUNULL};
- struct Menu Menu2 = {&Menu1,388,0,111,0,MENUENABLED,"AUTOREQUESTER",&RItem6};
-
- struct MenuItem RItem5 = {NULL,0,32,200,8,HIGHCOMP|ITEMTEXT,
- NULL,(APTR)&RqText9,NULL,0,NULL,MENUNULL};
- struct MenuItem RItem4 = {&RItem5,0,24,200,8,HIGHCOMP|ITEMTEXT,
- NULL,(APTR)&RqText10,NULL,0,NULL,MENUNULL};
- struct MenuItem RItem3 = {&RItem4,0,16,200,8,HIGHCOMP|ITEMTEXT,
- NULL,(APTR)&RqText11,NULL,0,NULL,MENUNULL};
- struct MenuItem RItem2 = {&RItem3,0,8,200,8,HIGHCOMP|COMMSEQ|ITEMTEXT,
- NULL,(APTR)&RqText12,NULL,'R',NULL,MENUNULL};
- struct MenuItem RItem1 = {&RItem2,0,0,200,8,ITEMENABLED|HIGHCOMP|ITEMTEXT,
- NULL,(APTR)&RqText13,NULL,0,NULL,MENUNULL};
- struct Menu Menu3 = {&Menu2,302,0,79,0,MENUENABLED,"REQUESTER",&RItem1};
-
- struct MenuItem WMItem3e = { NULL,0,64,184,8,ITEMTEXT|COMMSEQ|HIGHCOMP,0,
- (APTR)&WMText1e,NULL,'O',NULL,MENUNULL };
- struct MenuItem WMItem3d = { &WMItem3e,0,56,184,8,ITEMTEXT|HIGHCOMP,0,
- (APTR)&WMText1d,NULL,0,NULL,MENUNULL };
- struct MenuItem WMItem3c = { &WMItem3d,0,48,184,8,ITEMTEXT|COMMSEQ|HIGHCOMP,
- 0,(APTR)&WMText1c,NULL,'I',NULL,MENUNULL };
- struct MenuItem WMItem3b = { &WMItem3c,0,40,184,8,ITEMTEXT|COMMSEQ|HIGHCOMP,
- 0,(APTR)&WMText1b,NULL,'B',NULL,MENUNULL };
- struct MenuItem WMItem3a = { &WMItem3b,0,32,184,8,ITEMTEXT|COMMSEQ|HIGHCOMP,
- 0,(APTR)&WMText1a,NULL,'T',NULL,MENUNULL };
- struct MenuItem WMItem3 = { &WMItem3a,0,24,184,8,ITEMTEXT|COMMSEQ|HIGHCOMP,
- 0,(APTR)&WMText1,NULL,'V',NULL,MENUNULL };
- struct MenuItem WMItem2 = { &WMItem3,0,16,184,8,ITEMTEXT|COMMSEQ|HIGHCOMP,
- 0,(APTR)&WMText2,NULL,'K',NULL,MENUNULL };
- struct MenuItem WMItem1a = { &WMItem2,0,8,184,8,ITEMTEXT|COMMSEQ|HIGHCOMP,
- 0,(APTR)&WMText2a,NULL,'G',NULL,MENUNULL };
- struct MenuItem WMItem1 = { &WMItem1a,0,0,184,8,ITEMTEXT|HIGHCOMP,
- 0,(APTR)&WMText3,NULL,NULL,NULL,MENUNULL };
- struct Menu WMMenu2 = { &Menu3,240,0,55,0,MENUENABLED,"GADGET",&WMItem1 };
-
- struct MenuItem WMItem5a = { NULL,0,24,192,8,ITEMTEXT|HIGHCOMP,
- 0,(APTR)&WMText5a,NULL,NULL,NULL,MENUNULL };
- struct MenuItem WMItem5 = { &WMItem5a,0,16,192,8,ITEMTEXT|HIGHCOMP,
- 0,(APTR)&WMText5,NULL,NULL,NULL,MENUNULL };
- struct MenuItem WMItem5b = { &WMItem5,0,8,192,8,ITEMTEXT|HIGHCOMP,
- 0,(APTR)&WMText5b,NULL,NULL,NULL,MENUNULL };
- struct MenuItem WMItem4 = { &WMItem5b,0,0,192,8,ITEMTEXT|COMMSEQ|HIGHCOMP,
- 0,(APTR)&WMText4,NULL,'M',NULL,MENUNULL };
- struct Menu WMMenu3 = { &WMMenu2,194,0,39,0,MENUENABLED,"MENU",&WMItem4 };
-
- struct MenuItem WMItem10a = { NULL,0,32,208,8,ITEMTEXT|HIGHCOMP,0,
- (APTR)&WMText9a,NULL,NULL,NULL,MENUNULL };
- struct MenuItem WMItem10 = { &WMItem10a,0,24,208,8,ITEMTEXT|HIGHCOMP,0,
- (APTR)&WMText9,NULL,NULL,NULL,MENUNULL };
- struct MenuItem WMItem10b = { &WMItem10,0,16,208,8,ITEMTEXT|ITEMENABLED|HIGHCOMP,
- 0,(APTR)&WMText9b,NULL,NULL,NULL,MENUNULL };
- struct MenuItem WMItem9a = { &WMItem10b,0,8,208,8,
- ITEMTEXT|COMMSEQ|HIGHCOMP,0,(APTR)&WMText10,NULL,'W',NULL,MENUNULL };
- struct MenuItem WMItem9 = { &WMItem9a,0,0,208,8,
- ITEMTEXT|ITEMENABLED|HIGHCOMP,0,(APTR)&WMText10a,NULL,NULL,
- NULL,MENUNULL };
- struct Menu WMMenu4 = { &WMMenu3,132,0,55,0,MENUENABLED,"WINDOW",&WMItem9 };
-
- struct MenuItem WMItem11b = { NULL,0,16,192,8,ITEMTEXT|ITEMENABLED|COMMSEQ|HIGHCOMP,
- 0,(APTR)&WMText11b,NULL,'F',NULL,MENUNULL };
- struct MenuItem WMItem11a = { &WMItem11b,0,8,192,8,ITEMTEXT|COMMSEQ|HIGHCOMP,
- 0,(APTR)&WMText11,NULL,'D',NULL,MENUNULL };
- struct MenuItem WMItem11 = { &WMItem11a,0,0,192,8,ITEMTEXT|ITEMENABLED|HIGHCOMP,
- 0,(APTR)&WMText11a,NULL,NULL,NULL,MENUNULL };
- struct Menu WMMenu5 = { &WMMenu4,70,0,55,0,MENUENABLED,"SCREEN",&WMItem11 };
-
- struct MenuItem WMItem18 = { NULL,0,64,200,8,
- ITEMTEXT|COMMSEQ|ITEMENABLED|HIGHCOMP,0,(APTR)&WMText12,NULL,'Q',NULL,MENUNULL };
- struct MenuItem WMItem16 = { &WMItem18,0,48,200,8,
- ITEMTEXT|COMMSEQ|HIGHCOMP,0,(APTR)&WMText13,NULL,'C',NULL,MENUNULL };
- struct MenuItem WMItem15 = { &WMItem16,0,40,200,8,
- ITEMTEXT|COMMSEQ|ITEMENABLED|HIGHCOMP,0,(APTR)&WMText14,NULL,'P',NULL,MENUNULL };
- struct MenuItem WMItem14 = { &WMItem15,0,32,200,8,
- ITEMTEXT|COMMSEQ|HIGHCOMP,0,(APTR)&WMText15,NULL,'H',NULL,MENUNULL };
- struct MenuItem WMItem13b = { &WMItem14,0,24,200,8,
- ITEMTEXT|ITEMENABLED|HIGHCOMP,0,(APTR)&WMText16a,NULL,NULL,NULL,MENUNULL };
- struct MenuItem WMItem13a = { &WMItem13b,0,16,200,8,
- ITEMTEXT|HIGHCOMP,0,(APTR)&WMText17a,NULL,NULL,NULL,MENUNULL };
- struct MenuItem WMItem13 = { &WMItem13a,0,8,200,8,
- ITEMTEXT|COMMSEQ|ITEMENABLED|HIGHCOMP,0,(APTR)&WMText16,NULL,'L',NULL,MENUNULL };
- struct MenuItem WMItem12 = { &WMItem13,0,0,200,8,
- ITEMTEXT|COMMSEQ|HIGHCOMP,0,(APTR)&WMText17,NULL,'S',NULL,MENUNULL };
- struct Menu WMMenu6 = { &WMMenu5,0,0,63,0,MENUENABLED,"Project",&WMItem12 };
-
- struct NewWindow WMWindow = { 0,11,640,188,0,1,
- MENUPICK|MENUVERIFY,
- WINDOWDEPTH|SMART_REFRESH|ACTIVATE|BORDERLESS|BACKDROP,
- NULL,NULL,NULL,NULL,NULL,5,5,-1,-1,CUSTOMSCREEN };
- struct NewScreen WMScreen = { 0,0,640,200,2,0,1,HIRES,CUSTOMSCREEN,&ZS8,
- " * * * Window-Maschine V1.1 * * * ©1991 by Arno Pichler ",
- NULL,NULL };
-
- UBYTE GTexte[][10] = {
- "01","02","EIN","AUS","NORMAL","EXTRA ","LATTICE C"," AZTEC C "
- };
-